home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / HotKeySet.au3 < prev    next >
Text File  |  2006-06-17  |  524b  |  30 lines
  1. ; Press Esc to terminate script, Pause/Break to "pause"
  2.  
  3. Global $Paused
  4. HotKeySet("{PAUSE}", "TogglePause")
  5. HotKeySet("{ESC}", "Terminate")
  6. HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d
  7.  
  8. ;;;; Body of program would go here ;;;;
  9. While 1
  10.     Sleep(100)
  11. WEnd
  12. ;;;;;;;;
  13.  
  14. Func TogglePause()
  15.     $Paused = NOT $Paused
  16.     While $Paused
  17.         sleep(100)
  18.         ToolTip('Script is "Paused"',0,0)
  19.     WEnd
  20.     ToolTip("")
  21. EndFunc
  22.  
  23. Func Terminate()
  24.     Exit 0
  25. EndFunc
  26.  
  27. Func ShowMessage()
  28.     MsgBox(4096,"","This is a message.")
  29. EndFunc
  30.